home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 October
/
64er_Magazin_89-10_1989_Markt__Technik_de_Side_A.d64
/
kalender ii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
966b
|
21 lines
1 clr:poke53280,7:poke53281,0:input"[147][158][205]onat";m:input"[202]ahr";j
2 n=int(365.25*(j+(m<3)))+int(30.6*(m+1-(m<3)*12))+1-2:n=n-int(n/7)*7:restore
3 dimm$(12),m(12):fori=1to12:readm$(i):nexti:fori=1to12:readm(i):nexti
4 rem--------hauptroutine-------
5 ifj/4=int(j/4)thens=1:ifm=2thenm(m)=m(m)+1
6 print"[147] [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
7 fori=1to6:print" [167] [165]"
8 print" [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
9 next:print" [167] [165]"
10 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
11 print"";m$(m);"[159]";j
12 print"[150][211]o[157][157][205]o[157][157][196]i[157][157][205]i[157][157][196]o[157][157][198]r[157][157][211]a":w=1
13 x=5+n*2
14 fori=1to7-n:poke211,10:poke214,x:sys58640:printw:w=w+1:x=x+2:nexti
15 forx=14to30step4:fory=5to17step2:poke211,x:poke214,y:sys58640
16 ifw<=m(m)thenprintw:w=w+1:nexty,x
17 fori=9to34:poke55296+i+5*40,10:nexti:poke198,0:wait198,1:getg$:ifg$=" "then1
18 data"[202]anuar","[198]ebruar","[155][205]aerz","[193]pril","[205]ai","[129][202]uni","[129][202]uli","[129][193]ugust"
19 data"[158][211]eptember","[158][207]ktober","[152][206]ovember","[196]ezember"
20 print"[147]":data31,28,31,30,31,30,31,31,30,31,30,31